home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: Greatest Hits 1996 / Amiga Games: Greatest Hits 1996.iso / userbox / publicdomain / ustartup1.0 / install ustartup next >
Text File  |  1996-05-28  |  1KB  |  21 lines
  1. set comment Empty
  2. set comment `list s:User-Startup lformat %c`
  3. if "$comment" EQ "UStartup script"
  4.  RequestChoice "UStartup install script:" "It looks like you already*nhave UStartup installed*nin your system." "OK" >nil:
  5. else
  6.  set choice `RequestChoice "UStartup install script:" "A drawer named SYS:UStartup will be created.*nS:User-Startup will be moved to SYS:UStartup/Execute.*nThere will also be a backed up version in S:.*nThe UStartup script will replace S:User-Startup." "OK|Cancel"`
  7.  if $choice EQ 1
  8.   copy UStartup sys:UStartup all
  9.   copy UStartup.info sys:
  10.   copy s:User-Startup "sys:UStartup/execute/100 Old User-Startup"
  11.   rename s:User-Startup s:User-Startup_before_UStartup
  12.   copy UStartupScript s:User-Startup
  13.   filenote s:User-Startup "UStartup script"
  14.   run >nil: RequestChoice "UStartup install script:" "UStartup installed. You may reboot now." "OK" >nil:
  15.  else
  16.   RequestChoice "UStartup install script:" "Script aborted. Nothing is changed." "OK" >nil:
  17.  endif
  18. endif
  19. unset comment
  20. unset choice
  21.